10 POKE53281,0:POKE53280,0:PRINTCHR$(14)
20 PRINTCHR$(147);"[158] [205] E N U E C A L C U L A T I O N  V 1.6 "
30 A=7:Z=5:GOSUB490:PRINT"SUCHE [196]RUCKERDATEN"
40 DR$="  [196]RUCKER    "
50 OPEN1,8,2,DR$+",S,R
60 [132]1,A$
70 [160]1
80 [139]A$[178]"(null)PS 801/803"[176]A$[178]"(null)TAR (null)(null) 10 "[167]500
100 A[178]0:Z[178]5:[141]490:[153]"            STR$RUCKERAUSWAHL  "
110 [153]" 1  LENOMMODORE 801 / 803 UND KOMPATIBLE"
120 [153]" 2       (null)TAR (null)(null) 10     UND KOMPATIBLE"
130 A[178]10:Z[178]15:[141]490:[153]" BITTE WAEHLEN !!":[129]W[178]1[164]100:[130]
135 A[178]10:Z[178]15:[141]490:[153]" BITTE WAEHLEN !!WAIT":[129]W[178]1[164]100:[130]
150 [161]W$:[139]W$[178]""[167]130
160 [139]W$[178]"1"[167]A$[178]"(null)PS 801/803":[137]200
170 [139]W$[178]"2"[167]A$[178]"(null)TAR (null)(null) 10 ":[137]200
190 [137]150
200 A[178]3:Z[178]15:[141]490:[153]"RIGHT$CH SPEICHERE DEINE STR$RUCKERDATEN"
250 [159]15,8,15,"S:"[170]DR$
260 [160]15
300 [159]1,8,2,DR$[170]",S,W
310 PRINT#1,A$
320 CLOSE1
400 GOTO500
490 POKE211,A:POKE214,Z:SYS58732:RETURN
500 PRINTCHR$(147);"[158] [205] E N U E C A L C U L A T I O N  [214] 1.6 ";
530 Z=3:A=8:GOSUB490:PRINT"([195]) 1987 BY [195]H. [194]RAUN
540 [153]"    BITTE WARTEN, ICH LADE (null)ROGRAMM
550 PRINT"       FUER [196]RUCKER ";A$
600 PRINT"[144]LOAD"+CHR$(34)"  "+A$+CHR$(34)+",8,1"
620 PRINT"R[213][145][145][145][145][145][145][145][145]"
630 POKE631,13:POKE632,13:POKE633,13:POKE198,2